function domain = CalcDomain(domainList)

domain = domainList{1,1};
nDim = size(domain,2)/2;

for iDomain = 2:size(domainList,1)
    for iDim = 1:nDim
        domain(iDim) = min(domainList{iDomain,1}(iDim),domain(iDim));
        domain(iDim+nDim) = max(domainList{iDomain,1}(iDim+nDim),domain(iDim+nDim));
    end
end